拡張Ｋコンパイラ　Ｖ３．６ ――――――――――――――――――――――――――――――――――――――― ＦＭ−７／１１活用研究　掲載 ＦＭ−７ 拡張ＫコンパイラＶ３．６ Ｋコンパイラ マシン語　　　”Ｋ”　　＄２０００−＄４１ＦＦ　Ｓ＝＄２０００ マシン語　　　”ＲＴ”　＄４Ｄ００−＄４ＦＦＦ ファイル版Ｋコンパイラ ＢＡＳＩＣ　”ＭＡＩＮ” マシン語　　”ＲＴＦ”　＄４Ｄ００−＄４ＦＦＦ マシン語　　”ＫＦ”　　＄２０００−＄４１ＦＦ　Ｓ＝＄２０００ リロケータ　ソース　　　”ＲＥＬＳ” オブジェクト　　　　　　”ＲＥＬ”　　＄５０００−＄５０８８　＄５０００ エグゼキューター　ソース”ＥＸＥＳ” オブジェクト　　　　　　”ＥＸＥ”　　＄５０００−＄５０４５　＄５０００ [ｆｉｘ]はＫコンパイラのランタイムルーチン ４Ｄ０９：２０→３９の修正（ＰｉＯ’85　12月号より） ファイル版Ｋコンパイラは元々修正（変更）済み ――――――――――――――――――――――――――――――――――――――― 拡張Ｋコンパイラ　Ｖ３．６ リカーシブルのできるコンパイラ Ｋ言語は、パソコン用コンパイラ言語として考案されたもので、 その文法は比較的ＢＡＳＩＣに近く、 機能を縮小してコンパイラ自体を小さくできるように配慮されています。 拡張Ｋコンパイラは、そのＫ言語にいくつかのコマンドを加え、 さらに6809ＣＰＵの特徴を生かすべく設計されたコンパイラで、 次のような特徴があります。 (１)引数を使ったサブルーチン・コールや、 　　リカシーブル・コールができ、 　　サブルーチンヘの引数は値渡しで行なえる。 (２)行番号の概念はなく、英数字のラベルが使える。 (３)IF−THEN−ELSEの複数行化ができ、REPEAT−UNTIL も使える。 (４)REPEAT、WHILE のループ中への飛び込み、飛び出しができる。 (５)マシン語プログラムをプログラム中に書ける。 (６)コンパイラ自体とコンパイル後のオブジェクト（マシン語プログラム）は、 　　ポジションインデペンデント（位置自由）である。 (７)ランタイム・ルーチン（位置固定）が独立しており、 　　機種に依存するのは１文字入出力と１行入力の部分だけである。 ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 　拡張Ｋコンパイラの使い方 　　　　　　　　　（オンメモリ版） ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ コンパイラの作り方 リスト５のダンプ・リストを打ち込み、 ファイル名”ＲＴ”でセーブします。 次に、リスト６のダンプ・リストを打ち込み、 ファイル名”Ｋ”でセーブします。 FM-11 の方は、リスト７に従い、 ファイル版に変更を参照してください。 コンパイル時には、”ＲＴ”と”Ｋ”が必要ですが、 実行時には”ＲＴ”があれば実行できます。 ソース・プログラムの作り方 拡張Ｋ言語のソース・テキスト（プログラム）は F−BASICの REM文の形で作成します。 したがって、１行の文の先頭には必ず『’』がなくてはいけません。 リスト１のプログラム例は、１から10の範囲の乱数を 100個とり、 偶数と奇数のどちらが多いかをみるプログラムです。 行番号はテキスト作成を行なう場合は必要なく、 25行にあるGOTO文のジャンプ先は、 20行に定義されているラベル『GETRAND』です。 また、BASIC では１行に複数のステートメントを記述する場合、 その区切りは『:(ｺﾛﾝ)』で行ないますが、 拡張Ｋでは『;(ｾﾐｺﾛﾝ)』を使います。 ですから、25行にある『；』は、 PRINT文 の出力を連続させるためのものではなく、 次の『fI』との区切りを意味します。 拡張ＫのPRINT文 は指定（改行子『／』を書く）をしないかぎり、 改行は行ないません。 拡張Ｋでは英字の大小文字は区別しないので（文字列中は除く）、 キーワードを小文字、その他を大文字として、 リストを見やすくすることもできます。 その他、詳しい文法などはここでは省略しますが、 拡張Ｋを初めて使う方は、 まず次ページのリスト１を入力してみてください。 入力したプログラムは、 通常のＢＡＳＩＣと同様にテープにセーブできます。 コンパイル ソース・テキストの入力後、EXEC&H2000[RET] と入力すると、 コンパイルが開始されます。 コンパイル・エラーが生じた場合、 その行と位置を表示するので、ソース・テキストを修正して、 再度コンパイルを行なってください。 コンパイルが正常に終了すると、 オブジェクト・プログラムのサイズが表示されます。 これはオブジェクトをセーブする場合に必要となるので、 値をメモなどに記入しておいてください。 リスト１のプログラムをコンパイルすると、 図１のようになります。 　　　　　　　　図１　コンパイル画面 ・―――――――――――――――――――――――――――――――――――――・ ｜Ready ｜ ｜EXEC&H2000 ｜ ｜ ｜ ｜K COMPILER VERSION 3.3 ｜ ｜COPYRIGHT 1982 BY COMPAC. ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜COMPILING... ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜OBJECT PROGRAM SIZE :179 ($00B3) ｜ ｜ ｜ ｜COMPILE END. ｜ ｜Ready ｜ ・―――――――――――――――――――――――――――――――――――――・ 実　行 コンパイルしたオブジェクトは＄5000より生成されるので、 EXEC&H5000[RET] で、すぐに実行することが可能です。 しかし、プログラムの作りによっては暴走する場合もあるので、 実行前にソース・テキストをテープなどにセーブしておいてください。 リスト１のプログラムを実行すると、図２のようになります。 リスト２はリスト１と同様のプログラムを、 ＢＡＳＩＣで記述したものです。 入力してその実行速度を比較すると、 Ｋコンパイラ・オブジェクトの実行の速さがわかるでしょう。 完成したオブジェクトは、そのままマシン語プログラムとして、 セーブすることができます。 このとき、ランタイム・ルーチンも合わせてセーブすれば、 再び実行するときに ランタイム・ルーチンを別にロードする必要がなくなります。 セーブするコマンドは通常のマシン語と同様、 　・――――――――――――――――――――――・ 　｜SAVEM"File Name",&H4D00,End Address,&H5000 ｜ 　・――――――――――――――――――――――・ となり、End Address は オブジェクト・プログラムのサイズに&H5000を加えたものです。 File Name は任意に付けてください。 オブジェクトは、 先頭でPSHS、END文 および文の最後でPULSを行なって、 スタック・ポインタおよびレジスタ類を全部保護するので、 他のルーチン（BASIC など）から、サブルーチンとして利用できます。 ■■■■■■■■■■　リスト１　サンプル・プログラム　■■■■■■■■■■■■ ・―――――――――――――――――――――――――――――――――――――・ ｜10 '(* ｻﾝﾌﾟﾙ ﾌﾟﾛｸﾞﾗﾑ *) KISUU=0; GUUSU=0 ｜ ｜15 '｀for N=1 to 100 ｜ ｜20 ' GETRAND; RD=rnd(11) ｜ ｜25 ' if RD=0 then goto GETRAND else print ".";fi ｜ ｜30 ' if (RD and $0001)=0 then GUUSU=GUUSU+1 ｜ ｜35 ' else KISUU=KISUU+1 ｜ ｜40 ' fi ｜ ｜45 'next ｜ ｜50 'print /,"ｷｽｳ : ", KISUU, " ｶｲ",/,"ｸﾞｳｽｳ: ", GUUSU, " ｶｲ"/ ｜ ｜55 'end ｜ ・―――――――――――――――――――――――――――――――――――――・ ■■■■■■■■■■　リスト２　比較プログラム(BASIC) 　■■■■■■■■■■■ ・―――――――――――――――――――――――――――――――――――――・ ｜10 'ｻﾝﾌﾟﾙ ﾌﾟﾛｸﾞﾗﾑ ｜ ｜15 RANDOMIZE ｜ ｜20 FOR N=1 TO 100 ｜ ｜25 RD%=RND*10 ｜ ｜30 IF RD%=0 THEN 25 ELSE PRINT "."; ｜ ｜35 IF (RD% AND &H1)=0 THEN GUUSU=GUUSU+1 ELSE KISUU=KISUU+1 ｜ ｜40 NEXT ｜ ｜45 PRINT:PRINT "ｷｽｳ : "; KISUU; " ｶｲ": PRINT "ｸﾞｳｽｳ: "; GUUSU; " ｶｲ" ｜ ｜50 END ｜ ・―――――――――――――――――――――――――――――――――――――・ 　　　　　　　　図２　実行画面 ・―――――――――――――――――――――――――――――――――――――・ ｜Ready ｜ ｜EXEC&H5000 ｜ ｜..........................................................................｜ ｜.................... ｜ ｜ｷｽｳ : 48 ｶｲ ｜ ｜ｸﾞｳｽｳ: 52 ｶｲ ｜ ｜ ｜ ｜Ready ｜ ｜HARDC ｜ ・―――――――――――――――――――――――――――――――――――――・ 　　　図３　Ｋコンパイラ・メモリ・マップ ・――――――――――――――――――――――・ ｜　　　　　・―――――――――――――・　　｜ ｜　　　　　｜　　　　　　　　　　　　　｜　　｜ ｜　　　　　｜　ｿｰｽ･ﾌﾟﾛｸﾞﾗﾑ 　　　　　　｜　　｜ ｜　　　　　｜　　　　　　　　　　　　　｜　　｜ ｜　　＄2000｜―――――――――――――｜　　｜ ｜　　　　　｜■■■■■■■■■■■■■｜　　｜ ｜　　　　　｜■ｺﾝﾊﾟｲﾗ本体■■■■■■■｜　　｜ ｜　　　　　｜■(ﾘﾛｹｰﾀﾌﾞﾙ)■■■■■■■｜　　｜ ｜　　　　　｜■■■■■■■■■■■■■｜　　｜ ｜　　＄41FF｜―――――――――――――｜　　｜ ｜　　　　　｜　　　　　　　　　　　　　｜　　｜ ｜　　＄4300｜―――――――――――――｜　　｜ ｜　　　　　｜　ｺﾝﾊﾟｲﾗ･ｼﾝﾎﾞﾙ･ﾃｰﾌﾞﾙ　　　｜　　｜ ｜　　＄4B00｜―――――――――――――｜　　｜ ｜　　　　　｜　ｺﾝﾊﾟｲﾗ･作業用ｴﾘｱ　　　　｜　　｜ ｜　　＄4C00｜―――――――――――――｜　　｜ ｜　　　　　｜　実行時のﾜｰｸ･ｴﾘｱ 　　　　｜　　｜ ｜　　＄4D00｜―――――――――――――｜　　｜ ｜　　　　　｜■ﾗﾝﾀｲﾑ･ﾙｰﾁﾝ■■■■■■■｜　　｜ ｜　　＄5000｜―――――――――――――｜　　｜ ｜　　　　　｜::::::::::::::::::::::::::｜　　｜ ｜　　　　　｜::ｵﾌﾞｼﾞｪｸﾄ::::::::::::::::｜　　｜ ｜　　　　　｜::(ﾘﾛｹｰﾀﾌﾞﾙ)::::::::::::::｜　　｜ ｜　　　　　｜::::::::::::::::::::::::::｜　　｜ ｜　　　　　・―――――――――――――・　　｜ ・――――――――――――――――――――――・ ・――――――――――――――――――――――――――――――――・ ｜■■■文■■■｜■■■■■■■■機■■■■■■能■■■■■■■■｜ ｜―――――――＋――――――――――――――――――――――――｜ ｜　　　　　　　｜キーボードにより１文字を入力する。　　　　　　　｜ ｜　　　　　　　｜キー入力がないときは、０を値として持つ。　　　　｜ ｜　ＧＥＴ　　　｜ランタイム・ルーチンの＄4F86を＄00から　　　　　｜ ｜　　　　　　　｜＄01に変更すると、キー入力があるまで　　　　　　｜ ｜　　　　　　　｜待つようになる。　　　　　　　　　　　　　　　　｜ ｜―――――――＋――――――――――――――――――――――――｜ ｜　　　　　　　｜キーボードから[ＲＥＴ]キーが押されるまでを　　　｜ ｜　　　　　　　｜入力とする。　　　　　　　　　　　　　　　　　　｜ ｜　ＩＮＰＵＴ　｜[ＤＥＬ]キー、[ＩＮＳ]キーで、　　　　　　　　　｜ ｜　　　　　　　｜入力した文字の削除、挿入ができる。　　　　　　　｜ ｜　　　　　　　｜[CTRL]＋[Ｃ]で実行を中止する。　　　　　　　　　｜ ｜―――――――＋――――――――――――――――――――――――｜ ｜　　　　　　　｜画面に出力する。　　　　　　　　　　　　　　　　｜ ｜　　　　　　　｜ランタイム・ルーチンの＄4F38を＄8Dにすると、　　｜ ｜　ＰＲＩＮＴ　｜画面とプリンタの両方に出力する。　　　　　　　　｜ ｜　　　　　　　｜プリンタにだけ出力するには、＄4F39を＄15にする。｜ ・――――――――――――――――――――――――――――――――・ 裏ＲＡＭの使用（ＦＭ−７のみ） ＦＭ−７では、ＢＡＳＩＣインタープリタＲＯＭと アドレスが重複しているＲＡＭを、 ソフトウェアで切り換えて使うことができます。 このＲＡＭエリアを裏ＲＡＭと呼び、 ここヘコンパイラを移動することで、 テキスト・エリア、オブジェクト・エリアを増やすことが可能です。 拡張Ｋコンパイラを裏ＲＡＭに移して使うには、次のようにしてください。 (１)通常の手段で、ランタイム、コンパイラ本体をロードします。 (２)リスト３のリロケータを入力して、EXEC&H2000[ＲＥＴ]でコンパイルします。 (３)EXEC&H5000[ＲＥＴ]でリロケータを実行すると、 　　スタート、エンド、ディスティネーションの各アドレスの入力要求をしてきます。 　　たとえば次のように入力してください（アンダーラインの部分を入力する）。 　　・―――――――――――――――――――――――――・ 　　｜START ADDR=$2000[ＲＥＴ]←Ｋｺﾝﾊﾟｲﾗの先頭ｱﾄﾞﾚｽ 　　｜ 　　｜ ￣￣￣￣￣￣￣ ｜ 　　｜END ADDR=$41FF[ＲＥＴ]←Ｋｺﾝﾊﾟｲﾗの最終ｱﾄﾞﾚｽ 　　｜ 　　｜ ￣￣￣￣￣￣￣ ｜ 　　｜DEST ADDR=$C000[ＲＥＴ]←Ｋｺﾝﾊﾟｲﾗを移す先頭ｱﾄﾞﾚｽ ｜ 　　｜ ￣￣￣￣￣￣￣ ｜ 　　・―――――――――――――――――――――――――・ 　　なお、このリロケータのオブジェクトを、 　　ランタイム・ルーチンと合わせてセーブし、 　　裏ＲＡＭ用リロケータとすれば、次回から(２)の作業は不要になります。 (４)リロケートが済んだら、 　　リスト４のエグゼキュータのリストを入力し、コンパイルします。 (５)コンパイルが済んだら 　　エグゼキュータ・オブジェクトは単独でセーブしておきます。 (６)以上でコンパイルの準備は完了なので、 　　・―――――――――――――――――――――――――・ 　　｜CLEAR100,&H41FF[RET] ｜ 　　・―――――――――――――――――――――――――・ 　　と入力してから、コンパイルしたいプログラムをロードしてください。 　　通常の拡張Ｋコンパイラに比べ、テキスト・エリアが増えるので、 　　従来メモリ不足で入力できなかったソース・テキストも 　　かなり入力することができます。 (７)ソース・テキストの入力が済んだら、万一のことを考えて 　　テープなどにセーブしてください。 　　このあと、(５)でセーブしたエグゼキュータをロードし、 　　・―――――――――――――――――――――――――・ 　　｜EXEC&H5000[RET] 　　　　　　　　　　　　　　　　｜ 　　・―――――――――――――――――――――――――・ 　　で実行します。 　　すると、コンパイラのスタート・アドレスを聞いてくるので、 　　・―――――――――――――――――――――――――・ 　　｜EXEC ADDR=$C000[RET] ｜ 　　・―――――――――――――――――――――――――・ 　　（これは(３)の『DEST ADDR』 で入力した値）と入力すれば、 　　裏ＲＡＭにリロケートしたコンパイラが起動します。 　　コンパイラを起動する前には必ずエグゼキュータをロードしてください。 ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 　ファイル版への変更（FM7／11） ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 通常の拡張Ｋコンパイラは、メモリ上にあるソース・テキストを コンパイルしますが（これを便宜上オン・メモリ版と呼びます）、 テキスト・エリアが約６Ｋとバイト限られているため、 長いプログラムのコンパイルはできません。 これに対し、ファイル版の拡張Ｋコンパイラは、 ディスクあるいはテープに ASCII形式でセーブしたソース・プログラムを コンパイルするので、オブジェクト・エリアの許す限りのソースを コンパイルすることができます。 オン・メモリ版をファイル版に変更するには、 コンパイラ本体とランタイム・ルーチンを、 リスト７のダンプ・リストに従って変更し、 リスト８のメイン・プログラムを入力してください。 入力後、次のようにしてディスクまたはテープにセーブします． 　・―――――――――――――――――――――――――・ 　｜SAVE"MAIN"[RET] ｜ 　｜SAVEM"RTF",&H4D00,&H4FFF,&H4D00[RET] ｜ 　｜SAVEM"KF",&H2000,&H41FF,&H2000[RET] ｜ 　・―――――――――――――――――――――――――・ FM−11では＄4FACからの２バイトを、＄E537に変更してください。 これは、F−BASIC ROMの１行入力ルーチンのアドレスです。 F−BASICのバージョンによって、変わることがあるので注意してください。 また、＄4FA1を＄2Cに、＄4FE2を＄39に変更してください。 変更したファイル版は次の順序で使います。 (１)ソース・テキストを入力し、 　　それを使っている外部記憶装置（ディスクまたはテープ）に 　　ASCII形式 でセーブします。 (２)リスト８のメイン・プログラムをロードしＲＵＮします。 　　すると、“HOT OR COLD?”とメッセージがでるので、 　　ランタイムおよびコンパイラがメモリ上にロード済みであれば[Ｈ]を、 　　そうでなければ、変更したランタイムとコンパイラを 　　セーブしたディスク（ドライブ０）またはテープをセットしてから、 　　[Ｃ]をキーインしてください。 (３)次に、“FILE NAME?”とメッセージがでるので、 　　(１)でセーブしたソース・テキストのファイルをセットしてから 　　ファイル名を入力します。 (４)ファイル名を入力すると、 　　ソース・テキストをファイルから読みながらコンパイルを始め、 　　できあがったオブジェクトはメモリ版同様に実行、セーブが可能です。 ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 　　　　　バージョン・アップ ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ Ｖ３．６では、旧バージョンに次の変更、デバッグをしたので、 旧デバージョンをお持ちの方は、リスト９に従って変更してください。 (１)コンパイル・エラーのとき、暴走することがあった。 　　対策： 　　　コンパイルの最初でＳスタックを保存し、 　　　最後でＳスタックを復帰した後、BASIC に戻るようにした。 　　　コンパイラをサブルーチンとして使う方は、 　　　＄41F7を＄7Fから＄FFに変えれば、 　　　レジスタ類が全部保護されて戻ってくるようになる。 　　　これに伴ない、旧バージョンの＄2001は＄2003に、 　　　＄2005は＄2007に変わっている。 (２)オブジェクト・プログラムが、サブルーチンとならない。 　　対策： 　　　オブジェクト・プログラムの先頭で、PSHSを行ない、 　　　Ｓスタックを保存し、 　　　END文 およびオブジェクト・プログラムの最後で、 　　　Ｓスタックを復帰（PULS）して戻るようにした。 　　　これによって、オブジェクト・プログラム内で、 　　　たとえＳスタックを変更しても、正常に復帰できる。 　　　注）以前のように、強制的にBASIC に戻すことはしないので、 　　　　　プログラムでＲＡＭモードにしたときは、 　　　　　最後に必ずＲＯＭモードに戻す。 (３)論理演算子 ANDを英小文字で使うと、論理和　ORとなった。 　　また、配列を用いて ANDを３個以上続けると、 　　論理和　ORとなった。 　　対策：修正。 (４)PEEK文で変数を使うと、２バイトPEEKになった。 　　対策：修正。 (５)POKE文、CPOKE文 の中で、PEEK文が動作しなかった。 　　対策：修正。 (６)ラベル・テーブルが小さかった。 　　対策：ラベル・テーブルを＄100 ふやした。 　　　　表１　Ｋコンパイラ　エントリ・マップ（Ｖ３．３） ・――――――――――――――――――――――――――――――――・ ｜アドレス｜　内容　｜　　　　　　　機　　　　　　能　　　　　　　｜ ｜――――＋――――＋――――――――――――――――――――――｜ ｜2003 ｜ 4C ｜ｺﾝﾊﾟｲﾙ時変数ｴﾘｱ・ｱﾄﾞﾚｽの上位１ﾊﾞｲﾄ｡ ｜ ｜2007,8 ｜ 4C00 ｜ｺﾝﾊﾟｲﾙ時Ｕｽﾀｯｸ･ｴﾘｱの最終ｱﾄﾞﾚｽ｡ ｜ ｜2073,4 ｜ 4200 ｜ﾌﾟﾛｸﾞﾗﾑ１行入力ﾊﾞｯﾌｧ・ｱﾄﾞﾚｽ｡ ｜ ｜207D,E ｜ 5000 ｜ｵﾌﾞｼﾞｪｸﾄ作成ｱﾄﾞﾚｽ｡ ｜ ｜2082,3 ｜ 4300 ｜ｼﾝﾎﾞﾙ･ﾃｰﾌﾞﾙ･ｱﾄﾞﾚｽ｡ 　｜ ｜208E,F ｜ 4B8E ｜ｺﾝﾊﾟｲﾙ時ｽﾀｯｸ･ｴﾘｱの最終ｱﾄﾞﾚｽ｡ ｜ ｜209A,B ｜ 4B00 ｜ｺﾝﾊﾟｲﾙ時作業用ｴﾘｱ｡ ｜ ｜20C0 ｜ 4C ｜実行時変数ｴﾘｱ･ｱﾄﾞﾚｽの上位１ﾊﾞｲﾄ｡ ｜ ｜20CE ｜ 4C ｜実行時Ｕｽﾀｯｸ･ｴﾘｱ最終ｱﾄﾞﾚｽの上位１ﾊﾞｲﾄ｡ ｜ ｜20D4 ｜ 00 ｜実行時Ｕｽﾀｯｸ･ｴﾘｱ最終ｱﾄﾞﾚｽの下位１ﾊﾞｲﾄ｡ ｜ ｜4186 ｜ｻﾌﾞﾙｰﾁﾝ ｜ｺﾝﾊﾟｲﾗ１行入力ﾙｰﾁﾝ｡ ｜ ｜41E2 ｜ 〃 ｜ｺﾝﾊﾟｲﾗOPENﾙｰﾁﾝ｡ ｜ ｜41EE ｜ 〃 ｜ｺﾝﾊﾟｲﾗCLOSEﾙｰﾁﾝ｡ ｜ ｜4D00 ｜ 〃 ｜ﾗﾝﾀｲﾑ１文字入力ﾙｰﾁﾝ｡　ｴｺｰﾊﾞｯｸなし。 ｜ ｜4D03 ｜ 〃 ｜ﾗﾝﾀｲﾑ１文字出力ﾙｰﾁﾝ｡ ｜ ｜4D06 ｜ 〃 ｜ﾗﾝﾀｲﾑ１行入力ﾙｰﾁﾝ｡　ｴｺｰﾊﾞｯｸあり。 ｜ ｜ ｜　　　　｜ﾊﾞｯｸ･ｽﾍﾟｰｽあり。 ｜ ・――――――――――――――――――――――――――――――――・ ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 　　　　　　　注意・その他 ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 配列の使い方 拡張Ｋ言語での配列は、１バイト配列と２バイト配列があり、 その領域は、実アドレスで指定します。 配列を使うには、そのデータをメモリ上のどこに配置するかを、 ユーザー自身で決定し、その先頭アドレスを、 ・――――――――――――――――――――――・ ｜　　変数名＝式（式は配列の先頭アドレス）　　｜ ・――――――――――――――――――――――・ で指定します。ここで使った変数名が、以後配列名として使われます。 配列要素のアクセスは下記のように行ないますが、 要素数の上限を考慮して、 配列エリアにはプログラムが書かれないようにし、 また配列エリアを超えて書き込みが行なわわれないように、 注意が必要です。 配列は変数の値を変えることで、 その位置を簡単に変更することができるので、 プログラム中で配列を動的に処理することも可能です。 ・―――――――――――――――――――――――――――――――――――――・ ｜　[１ﾊﾞｲﾄのｱｸｾｽ]　 [２ﾊﾞｲﾄのｱｸｾｽ] ｜ ｜　書式） 変数：式） 書式） 変数：式） ｜ ｜ ｜ ｜　変数の値(先に先頭ｱﾄﾞﾚｽ を定義)に 変数の値(先に先頭ｱﾄﾞﾚｽ を定義)に　｜ ｜　式の値を加えたｱﾄﾞﾚｽ をｱｸｾｽします。 (式*2)の値を加えたｱﾄﾞﾚｽを ｜ ｜ ｱｸｾｽします。 ｜ ｜ ｜ ｜　例）DIMA=$6000 例）DIMB=$6100 ｜ ｜　　　X=DIMA:3) Y=DIMB:3) ｜ ｜｜　｜ ｜　｜ ｜ ｜｜―｜ ｜―｜ ｜ ｜｜15｜6000　←DIMA ｜　｜$6100 ←DIMB ｜ ｜｜―｜ ｜―｜ ｜ ｜｜FF｜ ｜　｜ ｜ ｜｜―｜ ｜―｜ ｜ ｜｜FF｜ ｜00｜ ｜ ｜｜―｜ ｜―｜$6100+2*1←DIMB ｜ ｜｜A7｜ ｜0F｜ ｜ ｜｜―｜ ｜―｜ ｜ ｜｜02｜＄6000+3←DIMA:3) ｜　｜ ｜ ｜｜―｜ ｜ ｜｜　｜ ｜ ｜メモリ内容が上図のようであれば、 メモリ内容が上図のようであれば、 ｜ ｜Ｘには＄02が代入されます。　　　　　　Ｙに は$000Fが代入されます。 ｜ ・―――――――――――――――――――――――――――――――――――――・ サブルーチン・関数・手続の使い方 拡張Ｋ言語では、サブルーチン・関数・手続の区別がなく、 RETURN文で終了しているルーチンは、そのいずれとしても使用が可能です。 もし、サブルーチンとして使っているのであれば、 呼び出しはGOSUB文 で行ないます。 これを関数・手続として使った場合、 呼び出しは単にラベル名に[　]で囲んで引数列を書きます。 関数として使用するとき呼び出されたルーチンで、 最後に実行された代入の値をラベル名に持ち帰ります。 たとえば、階乗を値とする閔数FACTは次のような記述が可能です。 ・――――――――――――――――――――――・ ｜ 10 'FACT:　　　　　　　　　　　　　　　　　｜ ｜ 20 ' IF %1=1 THEN A=1　　　　　　　　　　　｜ ｜ 30 ' ELSE A=%1*FACT[%1-1]　　　　　｜ ｜ 40 'FI　　　　　　　　　 　　　　　　　　　｜ ｜ 50 'RETURN　　　　　　　 　　　　　　　　　｜ ・――――――――――――――――――――――・ 上の例でFACT関数はＡに代入された値をFACTの値として持ち帰るので、 引数を１としてFACTを呼ぶとFACTの値が１となります。 また、この例ではFACTの中で再びFACTを呼び出す、 リカーシブコールも行なっています。 ただし、このような処理をさせる場合、 スタックオーバーフローする危険があるので、 充分な注意が必要です。 サブルーチン・関数・手続をコールした場合の引数は、 スタックにその値がセットされる値渡しで、 サブプログラム側に渡されます。 ただし、文字列はその格納されているアドレスが、 スタックにセットされるので、 サブプログラム側ではそのアドレスからPEEK関数などで、 文字列を読み出すことになります。 なお、文字列の終わりは１バイトの０がセットされており、 それ以後のプログラムと区別することができます。 サブプログラム側で引数を参照する場合は％変数を使いますが、 これは前記のように、スタックの値を参照するため、 コール側の引数を変化させることはできません。 サブ側でコール側の引数を変化させたい場合、 ADR関数 でその変数のアドレスを渡し、 PEEK、POKEなどでその内容を変更することになります。 サブルーチンがコールされた時点での スタックと、引数、％変数の対応は 次のようになります。 ・――――――――――――――――――――――――――――――――・ ｜ 　　［例］ＡＬＰＨＡ［２，Ａ，”ＡＢＣ”］ ｜ ｜ 　　　　　　　　　　　｜　｜　　　｜ ｜ ｜ 　　　　・――――――・　｜　　　｜ ｜ ｜ 　　・―＋――――――――・　　　｜ ｜ ｜ ・―＋―＋――――――――――――・ ｜ ｜ ｜　｜　｜　　　｜　　　　　｜↑Lowｱﾄﾞﾚｽ ｜ ｜ ｜　｜　｜　　　｜―――――｜ ｜ ｜ ｜　｜　｜ SP→｜ Ret Adr ｜%0…ﾘﾀｰﾝ･ｱﾄﾞﾚｽ ｜ ｜ ｜　｜　｜　　　｜―――――｜ ｜ ｜ ｜　｜　・――→｜第１引数　｜%1…＄0002 ｜ ｜ ｜　｜　　　　　｜―――――｜ ｜ ｜ ｜　・――――→｜第２引数　｜%2…変数Ａの値 ｜ ｜ ｜　　　　　　　｜―――――｜ ｜ ｜ ・――――――→｜第３引数　｜%3…文字列の格納され ｜　　｜ ｜ ｜ 　　　Hiｱﾄﾞﾚｽ ↓｜―――――｜　　ているｱﾄﾞﾚｽ を ｜――｜ ｜ ｜ 　　　　　　　　｜　　　　　｜　　指す。　 ―――→｜＄41｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　 　　　｜――｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　 ｜＄42｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　　　 ｜――｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　　　 ｜＄43｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　　　 ｜――｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　　　 ｜＄00｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　　　 ｜――｜ ｜ ｜ 　　　　　　　　　　　　　　　　　　　　　　　　　 ｜ ｜ ｜ ｜ ｜ ・――――――――――――――――――――――――――――――――・ 外部ルーチンとのリンク ユーザーがアセンブラなどで記述した手続や、 システムのユーティリティ・ルーチンをコールするには、 DEF文 でその開始アドレスを定義し、 呼び出しは一般のサブルーチンや関数と同様に行ないます。 引数も同様にシステム・スタックに値がセットされて （サブルーチン・関数の使い方参照）渡されます。 ユーザールーチンからの値は、AccDにセットすれば、 リターン後その値が外部関数の値となります。 このときＳ、Ｕスタック、ＤＰＲは変更してはいけません。 Ｋコンパイラ・キーワード キーワードはすべて予約語で、 その意味はＫコンパイラの仕様で定めています。 キーワードの区切りは、空白または記号で、 変数名をキーワードで始めた場合の動作は保障しません。 　ABS、ADR、AND ：　INPUT 　CALL、CHR$、CODE ：　NEXT 　CONST、CPOKE ：　NOT 　DEF ：　OR 　ELSE、END ：　PEEK、POKE、PRINT 　FI、FOR ：　REPEAT、RETURN、RND 　LOW ：　SEX、SGN、SPC$ 　HEX$、HEX$2、HIGH ：　UNTILL 　IF ：　WHILE、WEND 　GET、GOSUB、GOTO ： エラーメッセージ 拡張Ｋコンパイラはコンパイル時の構文チェックを完全に行なわないので、 プログラミングの際は次の点に充分注意してください。 (１)変数の誤りや、予約語との重複に注意する。 (２)サブルーチン・関数などの呼び出しでのパラメータの過不足。 (３)CODE文、CALL文の数値やアドレスの誤り。 コンパイル時のエラーメッセージとその意味を表２に示します。 　　　　　　　　表２　エラーメッセージ ・――――――――――――――――――――――――――――――――・ ｜DOUBLE DEF ERROR ｜ラベルの二重定義がある。　　　　　　　　　｜ ｜ELSE WITHOUT IF ｜ELSEに対応するIFがない。　　　　　　　　　｜ ｜FI WITHOUT IF ｜FIに対応するIFがない。　　　　　　　　　　｜ ｜ILLEGAL ARGUMENT ｜手続、関数のパラメータに誤りがある。　　　｜ ｜ILLEGAL EXPRESSION ｜許されない式である。　　　　　　　　　　　｜ ｜ILLEGAL NESTING ｜REPEAT、WHILE、FOR、IF句の対応がおかしい。｜ ｜NEXT WITHOUT FOR ｜NEXTに対応するFOR がない。　　　　　　　　｜ ｜SYNTAX ERROR ｜構文に誤りがある。　　　　　　　　　　　　｜ ｜TOO MANY VALIABLES ｜変数の数が多すぎる。　　　　　　　　　　　｜ ｜UNDEFINED LABELS ｜未定義のラベルである。　　　　　　　　　　｜ ｜UNTIL WITHOUT REPEAT｜UNTIL に対応するREPEATがない。　　　　　　｜ ｜WEND WITHOUT WHILE ｜WENDに対応するWHILE がない。　　　　　　　｜ ・――――――――――――――――――――――――――――――――・ ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 　　　　　　最後に ＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼＼ 紙面に限りがあり、できませんでした。 実際の使用例が、いろいろ載っているので、 他のＫコンパイラの記事を参考にしてください。